home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / amateur / hammisc / ph_lzh.com / PH.BAS next >
BASIC Source File  |  1988-10-15  |  3KB  |  111 lines
  1. 'THIS IS A TURBO BASIC PROGRAM FOR GIVING YOU THE PHONETIC WORD
  2. 'FOR A HAM RADIO CALL SIGN.
  3. '
  4. 'PRGRAM WRITTEN BY MIKE KELLY - KB4WQY
  5. '
  6. '*********************************************************************
  7. 'area-code display program
  8. '   cls                              'why clear the screen???
  9. '**************************************************************
  10.  
  11. DIM phoNetic$(26)
  12. FOR x%=0 TO 25
  13. READ phoNetic$(x%)
  14. NEXT x%
  15.  
  16.  
  17. '**************************************************************
  18. 'check for valid user input
  19. userIn$ = COMMAND$
  20. IF userIn$ = "?" THEN GOTO helpScrn:
  21.  
  22. 'check for an extra blank char on end of command line
  23. 'this change made so my special editor can call this program
  24. '                               and get results in all cases
  25. IF RIGHT$(userIn$,1) = " " THEN
  26.   userIn$ = MID$(userIn$,1,LEN(userIn$)-1)
  27. END IF
  28.  
  29. '**************************************************************
  30. userIn$ = UCASE$(userIn$) 'convert to upper case
  31. lenGth% = LEN(userIn$)
  32.  
  33. FOR x% = 1 TO lenGth%
  34. char$ = MID$(userIn$,x%,1)
  35. arrayNum = ASC(char$) - 65
  36.   IF arrayNum < 0 or arrayNum > 65 THEN
  37.      PRINT ,char$;"     ";char$
  38.   ELSE
  39.      PRINT ,char$;"     ";phoNetic$(arrayNum)
  40.   END IF
  41. NEXT x%
  42. '**************************************************************
  43. PRINT
  44. PRINT ,"<<HIT `ESCAPE' TO RETURN TO DOS>>"
  45. PRINT ,"<< - OR -  ENTER ANOTHER CALL>>"
  46. PRINT
  47. aaa = 0
  48. DO UNTIL inVal%=27
  49. userIn$ = INKEY$
  50. userIn$ = UCASE$(userIn$)
  51. 'PRINT LEN(USERIN$)
  52.   IF LEN(userIn$) <> 0  THEN inVal% = ASC(userIn$)
  53.   IF inVal% = 27 THEN PRINT:PRINT ,"73 es cul de KB4WQY":PRINT ,"10-15-88":END
  54.  
  55.       IF (inVal% < 65 AND inVal% > 27) or (inVal% > 90 AND inVal% < 255) THEN
  56.          PRINT ,userIn$;"     ";userIn$
  57.       ELSEIF (inVal% > 64 AND inVal% < 91) THEN
  58.          PRINT ,userIn$;"     ";phoNetic$(inVal% - 65)
  59.       END IF
  60.  inVal% = -1
  61. LOOP
  62.  
  63.  
  64. PRINT:PRINT "73 es cul de KB4WQY"
  65. end
  66. '**************************************************************
  67. helpScrn:
  68.   CLS   'okay, go ahead and clear the screen for the help!!
  69.   PRINT ""
  70.   PRINT "┌──────────────────┐
  71.   PRINT "│    syntax is:    │
  72.   PRINT "│                  └───────────────────┐
  73.   PRINT "│1)  PH [CALL]                         │
  74.   PRINT "│   Where CALL is the optional command │
  75.   PRINT "│   line data correspomding to the call│
  76.   PRINT "│   sign.                              │
  77.   PRINT "│                                      │
  78.   PRINT "╞══════════════════════════════════════╡
  79.   PRINT "│ PH program will display the phonetic │
  80.   PRINT "│letters for a ham radio station call. │
  81.   PRINT "│  Program by: Mike Kelly 10-15-1988   │
  82.   PRINT "└──────────────────────────────────────┘
  83.   END
  84. '**************************************************************
  85. DATA "ALPHA"
  86. DATA "BRAVO"
  87. DATA "CHARLIE"
  88. DATA "DELTA"
  89. DATA "ECHO"
  90. DATA "FOXTROT"
  91. DATA "GOLF"
  92. DATA "HOTEL"
  93. DATA "INDIA"
  94. DATA "JULIETT"
  95. DATA "KILO"
  96. DATA "LIMA"
  97. DATA "MIKE"
  98. DATA "MOVEMBER"
  99. DATA "OSCAR"
  100. DATA "PAPA"
  101. DATA "QUEBEC"
  102. DATA "ROMEO"
  103. DATA "SIERRA"
  104. DATA "TANGO"
  105. DATA "UNIFORM"
  106. DATA "VICTOR"
  107. DATA "WHISKEY"
  108. DATA "X-RAY"
  109. DATA "YANKEE"
  110. DATA "ZULU"
  111.